﻿Public Class FeuerkrafttabelleINF120
    Inherits Angriffstabelle
    Public Overrides Function GetWert(ByVal Name As String) As Integer
        Dim E As ObjektEinheit = GetUnit(Name)
        Select Case E.Bewegungsart.ToUpper
            Case MovementSorts.Flugzeug.ToString.ToUpper
                Return 90
            Case MovementSorts.Helikopter.ToString.ToUpper
                Return 90
            Case MovementSorts.Transport.ToString.ToUpper
                Return 90
            Case MovementSorts.Schiff.ToString.ToUpper
                Return 90
            Case MovementSorts.Fuß.ToString.ToUpper
                Return 120
            Case MovementSorts.Mech.ToString.ToUpper
                Return 120
            Case MovementSorts.Höllium.ToString.ToUpper
                Return 95
            Case MovementSorts.Amphibie.ToString.ToUpper
                Return 90
            Case MovementSorts.Ketten.ToString.ToUpper
                Return 95
            Case MovementSorts.Reifen.ToString.ToUpper
                Return 95
            Case MovementSorts.Motorreifen.ToString.ToUpper
                Return 120
            Case Else
                Return 95
        End Select
    End Function
End Class
Public Class FeuerkrafttabelleINF130
    Inherits Angriffstabelle
    Public Overrides Function GetWert(ByVal Name As String) As Integer
        Dim E As ObjektEinheit = GetUnit(Name)
        Select Case E.Bewegungsart.ToUpper
            Case MovementSorts.Flugzeug.ToString.ToUpper
                Return 90
            Case MovementSorts.Helikopter.ToString.ToUpper
                Return 90
            Case MovementSorts.Transport.ToString.ToUpper
                Return 90
            Case MovementSorts.Schiff.ToString.ToUpper
                Return 90
            Case MovementSorts.Fuß.ToString.ToUpper
                Return 130
            Case MovementSorts.Mech.ToString.ToUpper
                Return 130
            Case MovementSorts.Höllium.ToString.ToUpper
                Return 95
            Case MovementSorts.Amphibie.ToString.ToUpper
                Return 90
            Case MovementSorts.Ketten.ToString.ToUpper
                Return 95
            Case MovementSorts.Reifen.ToString.ToUpper
                Return 95
            Case MovementSorts.Motorreifen.ToString.ToUpper
                Return 130
            Case Else
                Return 95
        End Select
    End Function
End Class
Public Class FeuerkrafttabelleINF150
    Inherits Angriffstabelle
    Public Overrides Function GetWert(ByVal Name As String) As Integer
        Dim E As ObjektEinheit = GetUnit(Name)
        Select Case E.Bewegungsart.ToUpper
            Case MovementSorts.Flugzeug.ToString.ToUpper
                Return 90
            Case MovementSorts.Helikopter.ToString.ToUpper
                Return 90
            Case MovementSorts.Transport.ToString.ToUpper
                Return 90
            Case MovementSorts.Schiff.ToString.ToUpper
                Return 90
            Case MovementSorts.Fuß.ToString.ToUpper
                Return 150
            Case MovementSorts.Mech.ToString.ToUpper
                Return 150
            Case MovementSorts.Höllium.ToString.ToUpper
                Return 95
            Case MovementSorts.Amphibie.ToString.ToUpper
                Return 90
            Case MovementSorts.Ketten.ToString.ToUpper
                Return 95
            Case MovementSorts.Reifen.ToString.ToUpper
                Return 95
            Case MovementSorts.Motorreifen.ToString.ToUpper
                Return 150
            Case Else
                Return 95
        End Select
    End Function
End Class
Public Class FeuerkrafttabelleINF180
    Inherits Angriffstabelle
    Public Overrides Function GetWert(ByVal Name As String) As Integer
        Dim E As ObjektEinheit = GetUnit(Name)
        Select Case E.Bewegungsart.ToUpper
            Case MovementSorts.Flugzeug.ToString.ToUpper
                Return 90
            Case MovementSorts.Helikopter.ToString.ToUpper
                Return 90
            Case MovementSorts.Transport.ToString.ToUpper
                Return 90
            Case MovementSorts.Schiff.ToString.ToUpper
                Return 90
            Case MovementSorts.Fuß.ToString.ToUpper
                Return 180
            Case MovementSorts.Mech.ToString.ToUpper
                Return 180
            Case MovementSorts.Höllium.ToString.ToUpper
                Return 95
            Case MovementSorts.Amphibie.ToString.ToUpper
                Return 90
            Case MovementSorts.Ketten.ToString.ToUpper
                Return 95
            Case MovementSorts.Reifen.ToString.ToUpper
                Return 95
            Case MovementSorts.Motorreifen.ToString.ToUpper
                Return 180
            Case Else
                Return 95
        End Select
    End Function
End Class
Public Class FeuerkrafttabelleINF190
    Inherits Angriffstabelle
    Public Overrides Function GetWert(ByVal Name As String) As Integer
        Dim E As ObjektEinheit = GetUnit(Name)
        Select Case E.Bewegungsart.ToUpper
            Case MovementSorts.Flugzeug.ToString.ToUpper
                Return 90
            Case MovementSorts.Helikopter.ToString.ToUpper
                Return 90
            Case MovementSorts.Transport.ToString.ToUpper
                Return 90
            Case MovementSorts.Schiff.ToString.ToUpper
                Return 90
            Case MovementSorts.Fuß.ToString.ToUpper
                Return 190
            Case MovementSorts.Mech.ToString.ToUpper
                Return 190
            Case MovementSorts.Höllium.ToString.ToUpper
                Return 95
            Case MovementSorts.Amphibie.ToString.ToUpper
                Return 90
            Case MovementSorts.Ketten.ToString.ToUpper
                Return 95
            Case MovementSorts.Reifen.ToString.ToUpper
                Return 95
            Case MovementSorts.Motorreifen.ToString.ToUpper
                Return 190
            Case Else
                Return 95
        End Select
    End Function
End Class
